home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
RndPic1.3.lha
/
rndpic
/
Module-Install
next >
Wrap
Text File
|
1998-04-09
|
3KB
|
104 lines
; $VER: RndPic Install 1.0
; Date: 9.4.98
; Author: Helmut Hummel <hhummel@t-online.de>
(set #nodoc "A doc for your native language is not available. You should copy a doc file of your choice to your DOpus5 docs manually.")
(set #nocat "Sorry, a catalog for your native language is not available.")
(if (= @language "deutsch")
(
(set #welcome "Willkommen bei der Installation des RndPic-Moduls !")
(set #wronginst "Leider ist mindestens der Installer V42.9 nötig.")
(set #wrongkick "Leider brauchst Du mindestens Kick/WB 2.x und eine 68020 CPU")
(set #helpguide "Möchtest Du die Guide nach DOpus5:Help kopieren ?")
(set #helpguidehelp "Du brauchst sie nicht unbedingt, doch für die Online-Hilfe ist sie erforderlich.")
(set #module "Kopiere RndPic-Modul")
(set #doc "Kopiere Anleitung")
(set #catalog "Kopiere Katalog")
(set #success "Das RndPic-Modul wurde erfolgreich nach \"DOpus5:\" installiert. Jetzt solltest Du RndPicPrefs starten. Viel Spass !")
)
(
(set #welcome "Welcome to the installation of the RndPic module !")
(set #wronginst "Sorry, you need the Installer V43 to go on.")
(set #wrongkick "Sorry, but you need at least Kick/WB 2.x and a 68020 CPU")
(set #helpguide "Do you wish to install the guide to DOpus5:Help ?" )
(set #helpguidehelp "You need them not to use the RndPic module. It is needed, if you want to use the online help.")
(set #module "Copying RndPic module")
(set #doc "Copying doc")
(set #catalog "Copying catalog")
(set #success "The RndPic module is successful installed to \"DOpus5:\" . Now you should run RndPicPrefs. Enjoy it.")
)
)
;
(if (= @installer-version 0)
(abort #wronginst)
)
(set cpu (+ (database "cpu")))
(if (OR (< (getversion) 37)
(< cpu 68020)
)
(abort #wrongkick)
)
(set @default-dest "DOpus5:")
(set helpguide 0)
(welcome #welcome)
(set docdir (cat "Opus5/help/" @language))
(if (exists docdir (noreq))
(
(
(if @user-level
(set helpguide
(askbool
(prompt #helpguide)
(help #helpguidehelp)
)
)
)
(
(set helpguide 1)
)
)
(if helpguide
(copyfiles
(prompt #doc)
(source docdir)
(dest "DOpus5:Help/")
(all)
)
)
)
(message #nodoc)
)
(copyfiles
(prompt #module)
(source "Opus5/modules/")
(dest "DOpus5:modules/")
(all)
)
(set catalogdir (cat "Opus5/catalogs/" @language))
(if (exists catalogdir (noreq))
(
(copyfiles
(prompt #catalog)
(source catalogdir)
(dest (cat "DOpus5:catalogs/" @language))
(pattern "#?.catalog")
)
)
(message #nocat)
)
(exit #success (quiet))